Top 10k strings from Serpes (2003)(David Amigaman)(es).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   2 maxpunt=r(1
   2  (c)2003 Amigaman
   1 this is a freeware software, please enjoy it :-)   
   1 q$(r(i));"  ";r$(i)
   1 punt=punt+(long*(10
   1 p(c),q(c);
   1 long=long+1
   1 f$(maxpunt);" "
   1 O2200 GO SUB 7000
   1 N2127 LET maxpunt=r(1)
   1 M2126 LET r$(i)=g$
   1 IF punt>maxpunt THEN LET maxpunt=punt: PRINT AT 12,710; INVERSE 1; INK 4; FLASH 1;" R E C O R D "
   1 H2125 LET r(i)=punt
   1 C2120 NEXT j
   1 Amigaman 2003  www.web8bits.com"
   1 >2115 LET r$(j+1)=r$(j)
   1 ;"y contra ti mismo, recoge las"
   1 ;"flores verdes para mas puntos."
   1 ;"Selecciona nivel de dificultad"
   1 ;"Q --> Arriba"
   1 ;"P --> Derecha"
   1 ;"O --> Izquierda"
   1 ;"Los Mejores"
   1 ;"Evita chocar contra los muros"
   1 ;"Controla la serpiente con:"
   1 ;"A --> Abajo"
   1 ;" Puntos:";
   1 ;" Pulsa una tecla para empezar"
   1 ;"  H A S   M U E R T O  "
   1 42110 LET r(j+1)=r(j)
   1 2890 GO SUB 7000
   1 2540 FOR i=1 TO 100: NEXT i: PAU
   1 2240 PRINT AT 1,1; INK 3;"Los Me
   1 2230 NEXT i
   1 2220 PRINT AT i,13; FN q$(r(i));
   1 2210 FOR i=1 TO 20
   1 2080 NEXT i
   1 2070 IF punt >= pu THEN GO TO 21
   1 *dif))+100
   1 *2100 FOR j=19 TO i STEP -1
   1 );"    Record:";
   1 & www.web8bits.com
   1 "serpesv2"
   1 "serpe2v2"
   1 "Nombre:(max 10)";g$
   1 "0-> Practica","1-> Muy Facil","2-> Facil","3-> Medio","4-> Dificil","5-> Muy Dificil"
   1 "  ";r$(i)
   1  www.web8bits.com
   1  Serpes v2.0
   1  2090 IF i=21 THEN LET i=20
   1     Serpes v2.0